===========================================================================
 BBS: The Abacus * HST/DS * Potterville, MI
Date: 03-09-93 (04:07)             Number: 263
From: STEVE SHULTZ                 Refer#: NONE
  To: KIRK MESSNER                  Recvd: NO  
Subj: Basic Routine (Cont'd)         Conf: (35) Quick Basi
---------------------------------------------------------------------------
                IF VAL(work$) <> 0 THEN
                        GOSUB dohundreds
                        prtamt$ = prtamt$ + " THOUSAND "
                END IF
                work$ = digits(4) + digits(5) + digits(6)
                GOSUB dohundreds
                wordamt$ = prtamt$ + " AND " + cents$ + "/100 DOLLARS"
                EXIT FUNCTION
        CASE ELSE
                wordamt$ = "????????"
                EXIT FUNCTION
END SELECT
dohundreds:
        IF LEFT$(work$, 1) = "0" THEN
                GOTO dotens
        ELSE
                prtamt$ = prtamt$ + units$(VAL(MID$(work$, 1, 1))) + "
HUNDRED "
        END IF
dotens:
        IF VAL(RIGHT$(work$, 2)) > 19 THEN
                prtamt$ = prtamt$ + tens$(VAL(LEFT$(RIGHT$(work$, 2),
1)))
                IF VAL(RIGHT$(work$, 1)) <> 0 THEN
                        prtamt$ = prtamt$ + " "
                END IF
        END IF
        IF VAL(RIGHT$(work$, 2)) > 9 AND VAL(RIGHT$(work$, 2)) <= 19
THEN
                prtamt$ = prtamt$ + units$(VAL(RIGHT$(work$, 2)))
                GOTO myreturn
        END IF
dounits:
        IF VAL(RIGHT$(work$, 1)) <> 0 THEN
                prtamt$ = prtamt$ + units$(VAL(RIGHT$(work$, 1)))
        END IF
myreturn:
RETURN
END FUNCTION


Steve
___
 * MR/2 1.38 NR * Old MacDonald had a computer, with EIA I/O...

--- Maximus 2.01wb
 * Origin: Connect America SuperSystem - 512 459-3351 (1:382/10)
SEEN-BY: 1/211 11/2 4 13/13 101/1 108/89 109/25 110/69 114/5 123/19 124/1
SEEN-BY: 153/752 154/40 77 157/2 159/100 125 430 950 203/23 209/209 280/1
SEEN-BY: 390/1 396/1 15 397/2 2230/100 3603/20